home *** CD-ROM | disk | FTP | other *** search
- object SyntAnal41: TLibSyntAnalyzer
- Formats = <
- item
- DisplayName = 'Marked block'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clHighlightText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- BgColor = clHighlight
- FormatType = ftColor
- end
- item
- DisplayName = 'Default'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- FormatType = ftCustomFont
- end
- item
- DisplayName = 'Symbol'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clMaroon
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- end
- item
- DisplayName = 'Float'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- end
- item
- DisplayName = 'Integer'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- end
- item
- DisplayName = 'String'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- end
- item
- DisplayName = 'Identifier'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = []
- end
- item
- DisplayName = 'Reserved word'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clGreen
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = [fsBold, fsUnderline]
- end
- item
- DisplayName = 'Comment'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- end
- item
- DisplayName = 'Current block'
- Font.Charset = RUSSIAN_CHARSET
- Font.Color = clMaroon
- Font.Height = -13
- Font.Name = 'Courier New'
- Font.Style = [fsBold]
- BgColor = 13369046
- FormatType = ftColor
- BorderTypeLeft = blSolid
- BorderColorLeft = clGray
- BorderTypeTop = blSolid
- BorderColorTop = clGray
- BorderTypeRight = blSolid
- BorderColorRight = clGray
- BorderTypeBottom = blSolid
- BorderColorBottom = clGray
- end>
- TokenRules = <
- item
- DisplayName = 'Any name'
- StyleName = 'Identifier'
- TokenType = 2
- Expression = '[a-z_]\w*'
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'String'
- StyleName = 'String'
- TokenType = 4
- Expression = #39'.*?('#39'|$)'#13#10
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'Float'
- StyleName = 'Float'
- TokenType = 6
- Expression =
- '#with exp. dot is optional '#13#10'\d+ \.? \d+ e [\+\-]? \d+ |'#13#10'#witho' +
- 'ut exp. dot is required'#13#10'\d+ \. \d+'
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'Integer'
- StyleName = 'Integer'
- TokenType = 5
- Expression = '\d+'
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'Comment 1'
- StyleName = 'Comment'
- TokenType = 1
- Expression = '(?s)\(\*.*?(\*\)|\Z)'
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'Comment 2'
- StyleName = 'Comment'
- TokenType = 1
- Expression = '(?s)\{.*?(\}|\Z)'#13#10
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'Comment 3'
- StyleName = 'Comment'
- AlwaysEnabled = True
- TokenType = 1
- Expression = '//.*'
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'HEX'
- StyleName = 'Integer'
- TokenType = 7
- Expression = '\$[a-f\d]+'
- ColumnFrom = 0
- ColumnTo = 0
- end
- item
- DisplayName = 'Symbol'
- StyleName = 'Symbol'
- TokenType = 3
- Expression = '[/\*,\.;:\(\)=<>\+\-\[\]]'
- ColumnFrom = 0
- ColumnTo = 0
- end>
- BlockRules = <
- item
- DisplayName = 'Tag/Alarm'
- StyleName = 'Reserved word'
- BlockType = btTagDetect
- ConditionList = <
- item
- TagList.Strings = (
- 'alarm'
- 'tag')
- TokenTypes = 4
- IgnoreCase = True
- end>
- HighlightPos = cpAny
- IgnoreAsParent = False
- end
- item
- DisplayName = '('
- StyleName = 'Current block'
- ConditionList = <
- item
- TagList.Strings = (
- '(')
- TokenTypes = 8
- end>
- BlockEnd = ')'
- NotCollapsed = True
- DisplayInTree = False
- DynHighlight = dhBound
- HighlightPos = cpRange
- DynSelectMin = True
- IgnoreAsParent = False
- end
- item
- DisplayName = ')'
- BlockType = btRangeEnd
- ConditionList = <
- item
- TagList.Strings = (
- ')')
- TokenTypes = 8
- end>
- HighlightPos = cpAny
- IgnoreAsParent = False
- end>
- CodeTemplates = <>
- SubAnalyzers = <>
- SampleText.Strings = (
- 'Tag('#39'Tag1'#39') + (0.5 * Tag(17) - 67)')
- TokenTypeNames.Strings = (
- 'Unknown'
- 'Comment'
- 'Identifier'
- 'Symbol'
- 'String'
- 'Integer const'
- 'Float const'
- 'Hex const'
- 'Char const'
- 'Preprocessor')
- MarkedBlockStyle = 'Marked block'
- LexerName = 'Expressions'
- Internal = True
- end
-